home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / cad_gen / tre.cmd < prev    next >
OS/2 REXX Batch file  |  1994-09-12  |  1KB  |  91 lines
  1. /* Revision 6.1.0S */
  2. quit
  3.  setup macro message_pause off ; ;
  4. quit
  5.  setup
  6.   coordsystem global
  7.   unit length in   angle deg;;
  8.  
  9. quit measure location digitize exact quit
  10. quit
  11.  add surface extrusion 
  12. name "Ext_Surf.2"
  13. tolerance 0.05
  14. thickness 0
  15. direction
  16. 0 0 0
  17. 1 0 0
  18. open
  19. define_curve draft_angle 0 
  20. depth 32.8 
  21. start 0 4 -1.5
  22. line 0 -4 -1.5
  23. line 0 -4 1.5
  24. line 0 4 1.5
  25. line 0 4 -1.5
  26. ;
  27. ;
  28. ;;;;
  29.  
  30. quit
  31.  add solid extrusion 
  32. name "Ext_Solid.2"
  33. tolerance 0.05
  34. direction
  35. 0 0 0
  36. 0 0 -1
  37. define_curve draft_angle 0 
  38. depth 3 
  39. start 8.09 1.38 1.5
  40. line 8.09 -4 1.5
  41. line 24.71 -4 1.5
  42. line 24.71 1.38 1.5
  43. line 8.09 1.38 1.5
  44. ;
  45. ;
  46. ;;;;
  47.  
  48. quit
  49.  construct subtraction keep_tools_off
  50. name "Subtract.1"
  51. tool1 "Ext_Surf.2"
  52. tool2 "Ext_Solid.2"
  53. ; quit
  54.  
  55. quit
  56.  add solid box 
  57. name "Solid_Box.18"
  58. points pick digitize exact
  59. 11.15 5 -2.5
  60. 11.15 0 -2.5
  61. 21.65 5 -2.5
  62. 11.15 5 2.5
  63. ;;;;
  64.  
  65. quit
  66.  construct region solid_cut keep_tools_off
  67. name "Region.45"
  68. tool1 "Subtract.1"
  69. tool2 "Solid_Box.18"
  70. ; quit
  71.  
  72. quit
  73.  add solid box 
  74. name "Solid_Box.15"
  75. points pick digitize exact
  76. 34.8 -0.999999999999986 -6.50000000000001
  77. -5.2 -0.999999999999991 -6.50000000000001
  78. 34.8 -11 -6.50000000000001
  79. 34.8 -0.999999999999986 3.49999999999999
  80. ;;;;
  81.  
  82. quit
  83.  construct region solid_cut keep_tools_off
  84. name "Region.45"
  85. tool1 "Region.45"
  86. tool2 "Solid_Box.15"
  87. ; quit
  88.  
  89. ;;quit
  90.  modify csg_tree recover
  91.